perm filename PASCAL.ODF[PAS,SYS]1 blob
sn#332863 filedate 1978-09-07 generic text, type T, neo UTF8
1) PASCAL.BKP[PAS,EJG] and 2) PASCAL.PAS[PAS,EJG] 2-06-78 01:26 pages 1,1
**** File 1) PASCAL.BKP[PAS,EJG], Page 1 line 4
1) C00006 00002 (*$T-,S1300,R16*)
1) C00012 00003 (********************************************************************************
**** File 2) PASCAL.PAS[PAS,EJG], Page 1 line 4
2) C00006 00002 (*$T-,S1300,R16*) (* EJG(26JAN78): file = 11985 lines (not incl. E directory) *)
2) C00012 00003 (********************************************************************************
***************
**** File 1) PASCAL.BKP[PAS,EJG], Page 9 line 256
1) LIST←FILE, SOURCE←FILE, OBJECT←FILE: PACKED ARRAY[1..9] OF CHAR;
**** File 2) PASCAL.PAS[PAS,EJG], Page 9 line 256
2) LINKER: PACKED ARRAY[1..9] OF CHAR;
2) LINKTMP←FILE,
2) LIST←FILE, SOURCE←FILE, OBJECT←FILE: PACKED ARRAY[1..9] OF CHAR;
***************
**** File 1) PASCAL.BKP[PAS,EJG], Page 10 line 73
1) LIBRARY[PASCALSY].DEVICE := 'DSK ';
1) LIBRARY[FORTRANSY].DEVICE := 'SYS ';
**** File 2) PASCAL.PAS[PAS,EJG], Page 10 line 73
2) LIBRARY[PASCALSY].DEVICE := 'SYS ';
2) LIBRARY[FORTRANSY].DEVICE := 'SYS ';
***************
**** File 1) PASCAL.BKP[PAS,EJG], Page 10 line 80
1) CROSS←DEVICE := 'DSK ';
1) CROSS←PPN := 0;
**** File 2) PASCAL.PAS[PAS,EJG], Page 10 line 80
2) CROSS←DEVICE := 'SYS ';
2) CROSS←PPN := 0;
***************
**** File 1) PASCAL.BKP[PAS,EJG], Page 14 line 15
1) * <PROJECT>, <PROGRAMMER>, <PROTECTION> ::= <UNSIGNED OCTAL NUMBER>
1) * <SWITCH> ::= <IDENTIFIER> OR <IDENTIFIER>:<VALUE>
**** File 2) PASCAL.PAS[PAS,EJG], Page 14 line 15
2) * <PROJECT>, <PROGRAMMER> ::= <SIXBIT CHARACTERS (ALPHANUMERIC)>
2) * <PROTECTION> ::= <UNSIGNED OCTAL NUMBER>
2) * <SWITCH> ::= <IDENTIFIER> OR <IDENTIFIER>:<VALUE>
***************
**** File 1) PASCAL.BKP[PAS,EJG], Page 14 line 43
1) LASTCH: CHAR;
**** File 2) PASCAL.PAS[PAS,EJG], Page 14 line 44
2) DEFAULT←FILESPECS : BOOLEAN;
2) LASTCH: CHAR;
***************
**** File 1) PASCAL.BKP[PAS,EJG], Page 14 line 47
1) DELIMITER3: ARRAY['['..']'] OF DELIMITER;
1) PROCEDURE STARTVALUES ;
**** File 2) PASCAL.PAS[PAS,EJG], Page 14 line 49
2) DELIMITER3: ARRAY['['..'←'] OF DELIMITER;
2) PROCEDURE STARTVALUES ;
***************
**** File 1) PASCAL.BKP[PAS,EJG], Page 14 line 52
1) SWITCH←TREE := NIL; CURRENT←SWITCH := NIL;
**** File 2) PASCAL.PAS[PAS,EJG], Page 14 line 54
2) DEFAULT←FILESPECS := FALSE;
2) SWITCH←TREE := NIL; CURRENT←SWITCH := NIL;
***************
**** File 1) PASCAL.BKP[PAS,EJG], Page 14 line 60
1) END;
**** File 2) PASCAL.PAS[PAS,EJG], Page 14 line 63
2) DELIMITER3['←'] := EQUAL;
2) END;
***************
**** File 1) PASCAL.BKP[PAS,EJG], Page 14 line 151
1) IF FCH IN [' ','!','(',')',',','.','/',':','<','=','>','[',']']
1) THEN
**** File 2) PASCAL.PAS[PAS,EJG], Page 14 line 155
2) IF FCH IN [' ','!','(',')',',','.','/',':','<','=','>','[',']','←']
2) THEN
***************
**** File 1) PASCAL.BKP[PAS,EJG], Page 14 line 215
1) PROCEDURE READDECIMAL;
**** File 2) PASCAL.PAS[PAS,EJG], Page 14 line 219
2) PROCEDURE READSIXBIT;
2) BEGIN
2) IF CH IN [' '..'←']
2) THEN
2) BEGIN
2) OCVAL := OCVAL * 100B + (ORD(CH) - ORD(' '))
2) END
2) ELSE ERROR := TRUE
2) END (*READSIXBIT*) ;
2) PROCEDURE READDECIMAL;
***************
**** File 1) PASCAL.BKP[PAS,EJG], Page 14 line 295
1) IF CH IN [',','=']
1) THEN
1) BEGIN
1) END←OF←FILENAME := TRUE; CH := ' '
**** File 2) PASCAL.PAS[PAS,EJG], Page 14 line 309
2) IF CH IN [',','=','←']
2) THEN
2) BEGIN
2) IF CH IN ['=','←'] THEN DEFAULT←FILESPECS := TRUE;
2) END←OF←FILENAME := TRUE; CH := ' '
***************
**** File 1) PASCAL.BKP[PAS,EJG], Page 14 line 316
1) IF END←OF←FILENAME OR ((CH=',') AND (STATUS<>'[')) OR (CH='=')
1) THEN
1) BEGIN
1) END←OF←FILENAME := TRUE;
**** File 2) PASCAL.PAS[PAS,EJG], Page 14 line 331
2) IF END←OF←FILENAME OR ((CH=',') AND (STATUS<>'[')) OR (CH IN ['=','←'])
2) THEN
2) BEGIN
2) IF CH IN ['=','←'] THEN DEFAULT←FILESPECS := TRUE;
2) END←OF←FILENAME := TRUE;
***************
**** File 1) PASCAL.BKP[PAS,EJG], Page 14 line 348
1) IF STATUS IN ['[',',','<']
1) THEN READOCTAL
1) ELSE READCHAR
1) ELSE SETSTATUS
**** File 2) PASCAL.PAS[PAS,EJG], Page 14 line 364
2) IF STATUS IN ['[',',']
2) THEN READSIXBIT
2) ELSE
2) IF STATUS = '<'
2) THEN READOCTAL
2) ELSE READCHAR
2) ELSE SETSTATUS
***************
**** File 1) PASCAL.BKP[PAS,EJG], Page 14 line 372
1) IF NOT EOF(SOURCEFILE)
**** File 2) PASCAL.PAS[PAS,EJG], Page 14 line 391
2) IF DEFAULT←FILESPECS
2) THEN END←OF←FILENAME := TRUE
2) ELSE
2) IF NOT EOF(SOURCEFILE)
***************
**** File 1) PASCAL.BKP[PAS,EJG], Page 14 line 402
1) UFD := OCVAL * 1000000B;
1) RBRACK :
**** File 2) PASCAL.PAS[PAS,EJG], Page 14 line 424
2) IF OCVAL >= 400000B
2) THEN UFD := (OCVAL-400000B) * 1000000B + 400000000000B
2) ELSE UFD := OCVAL * 1000000B;
2) RBRACK :
***************
**** File 1) PASCAL.BKP[PAS,EJG], Page 14 line 532
1) GETPARAMETER(SOURCE←FILE,SOURCE←PROTECTION,SOURCE←UFD,SOURCE←DEVICE,'SOURCE ');
**** File 2) PASCAL.PAS[PAS,EJG], Page 14 line 556
2) DEFAULT←FILESPECS := FALSE;
2) GETPARAMETER(SOURCE←FILE,SOURCE←PROTECTION,SOURCE←UFD,SOURCE←DEVICE,'SOURCE ');
***************
**** File 1) PASCAL.BKP[PAS,EJG], Page 14 line 569
1) LOAD←AND←GO := NOT(OPTION('NOEXECUTE ') OR OPTION('NOLINK ') OR EXTERNAL);;
1) IF OPTION('CARD ')
**** File 2) PASCAL.PAS[PAS,EJG], Page 14 line 594
2) LOAD←AND←GO := (NOT EXTERNAL) AND (NOT OPTION('NOLINK '))
2) AND (OPTION('LINK ') OR OPTION('LOADER '));
2) IF OPTION('LOADER ') THEN
2) BEGIN
2) LINKER := 'LOADER ';
2) LINKTMP←FILE := 'LOA TMP'
2) END
2) ELSE
2) BEGIN
2) LINKER := 'LINK ';
2) LINKTMP←FILE := 'LNK TMP'
2) END;
2) IF OPTION('CARD ')
***************
**** File 1) PASCAL.BKP[PAS,EJG], Page 14 line 596
1) RESET(TEMPCORE,'LNK TMP');
1) IF NOT EOF(TEMPCORE)
**** File 2) PASCAL.PAS[PAS,EJG], Page 14 line 632
2) RESET(TEMPCORE,LINKTMP←FILE);
2) IF NOT EOF(TEMPCORE)
***************
**** File 1) PASCAL.BKP[PAS,EJG], Page 14 line 623
1) REWRITE(TEMPCORE,'LNK TMP');
1) WRITE(TEMPCORE,COMMAND←BUFFER↑:I);
**** File 2) PASCAL.PAS[PAS,EJG], Page 14 line 659
2) REWRITE(TEMPCORE,LINKTMP←FILE);
2) WRITE(TEMPCORE,COMMAND←BUFFER↑:I);
***************
**** File 1) PASCAL.BKP[PAS,EJG], Page 14 line 632
1) REWRITE(TEMPCORE,'LNK TMP');
1) WRITE(TEMPCORE,'DSK:',OBJECT←FILE:6,' /G ');
1) IF NOT OPTION('NOEXECUTE ')
1) THEN WRITE(TEMPCORE,'/E')
1) END
**** File 2) PASCAL.PAS[PAS,EJG], Page 14 line 668
2) REWRITE(TEMPCORE,LINKTMP←FILE);
2) WRITE(TEMPCORE,'=DSK:',OBJECT←FILE:6);
2) IF OPTION('EXECUTE ')
2) THEN WRITE(TEMPCORE,'/E');
2) WRITE(TEMPCORE,' /G ');
2) END
***************
**** File 1) PASCAL.BKP[PAS,EJG], Page 16 line 140
1) BEGIN
**** File 2) PASCAL.PAS[PAS,EJG], Page 16 line 140
2) PROCEDURE SKIP←E←DIRECTORY;
2) BEGIN (*SKIP←E←DIRECTORY*)
2) LOOP
2) EXIT IF (CH=';');
2) IF EOLN(SOURCE)
2) THEN ENDOFLINE;
2) NEXTCH
2) END (*LOOP*);
2) NEXTCH
2) END (*SKIP←E←DIRECTORY*);
2) BEGIN
***************
**** File 1) PASCAL.BKP[PAS,EJG], Page 16 line 179
1) FOR I := FRW[K] TO FRW[K+1] - 1 DO
**** File 2) PASCAL.PAS[PAS,EJG], Page 16 line 191
2) IF FIRST←SYMBOL AND (ID = 'COMMENT ') THEN
2) BEGIN
2) SKIP←E←DIRECTORY; INSYMBOL
2) END
2) ELSE
2) BEGIN
2) FOR I := FRW[K] TO FRW[K+1] - 1 DO
***************
**** File 1) PASCAL.BKP[PAS,EJG], Page 16 line 190
1) 222:
**** File 2) PASCAL.PAS[PAS,EJG], Page 16 line 208
2) END;
2) 222:
***************
**** File 1) PASCAL.BKP[PAS,EJG], Page 32 line 131
1) WRITE←PAIR(NO,400000B,400000B)
1) END
**** File 2) PASCAL.PAS[PAS,EJG], Page 32 line 131
2) WRITE←PAIR(RIGHT,400000B,400000B)
2) END
***************
**** File 1) PASCAL.BKP[PAS,EJG], Page 59 line 62
1) CALL('LINK ')
1) END
**** File 2) PASCAL.PAS[PAS,EJG], Page 59 line 62
2) CALL(LINKER)
2) END
***************
**** File 1) PASCAL.BKP[PAS,EJG], Page 59 line 68
1) RESET(TEMPCORE,'LNK TMP')
1) END
**** File 2) PASCAL.PAS[PAS,EJG], Page 59 line 68
2) RESET(TEMPCORE,LINKTMP←FILE)
2) END
***************